home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / casedemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  464 b   |  21 lines
  1. program CaseDemo;
  2. var
  3.   Foo: String (10);
  4.   Bar: Integer;
  5. begin
  6.   WriteLn ('Enter up to ten arbitrary characters:');
  7.   ReadLn (Foo);
  8.   for Bar := 1 to Length (Foo) do
  9.     begin
  10.       Write (Foo [bar], ' is ');
  11.       case Foo [bar] of
  12.         'A' .. 'Z', 'a' .. 'z':
  13.           WriteLn ('an English letter');
  14.         '0' .. '9':
  15.           WriteLn ('a number');
  16.       otherwise
  17.         WriteLn ('an unrecognized character')
  18.       end
  19.     end
  20. end.
  21.